﻿Imports System.IO

Namespace EyeOpen.IO.Test

	Friend Module DirectoryInfoExtensions
		<System.Runtime.CompilerServices.Extension> _
		Public Function AddDirectory(ByVal directory As DirectoryInfo, ByVal name As String) As DirectoryInfo
			Return directory.CreateSubdirectory(name)
		End Function

		<System.Runtime.CompilerServices.Extension> _
		Public Sub AddFile(ByVal directory As DirectoryInfo, ByVal fileName As String)
			File.WriteAllText(Path.Combine(directory.FullName, fileName), String.Empty)
		End Sub
	End Module
End Namespace